home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
library
/
rqtlsusr.lha
/
ReqTools
/
RexxReqTools
/
Examples
/
TTXARexx.lha
/
ExecMacro.ttx
< prev
next >
Wrap
Text File
|
1993-10-21
|
650b
|
27 lines
/* $VER: ExecMacro.ttx 1.0 (19.02.93) */
OPTIONS RESULTS
LastMacro = GetClip( 'TTX_LastMacro' )
IF LastMacro = "" THEN LastMacro = "REXX:"
DirName = ""
Index = LastPos( '/', LastMacro )
IF Index = 0 THEN Index = Index( LastMacro, ":" )
IF Index ~= 0 THEN DO
DirName = Left( LastMacro, Index )
FileName = SubStr( LastMacro, Index + 1 )
END
FileName = rtFileRequest( DirName, FileName, "Select file to execute as ARexx macro", "_Exec", "RT_PubScrName=TURBOTEXT RTFI_Flags=FREQF_PATGAD RTFI_MatchPat=#?.ttx" )
IF rtResult ~= 0 THEN DO
SetClip( 'TTX_LastMacro', FileName )
INTERPRET 'CALL "' || FileName || '"'
END
CALL rtFreeFileBuffer